Top 10k strings from Drawer (1983)(Coral Software).z80 in <root> / bin / z80 / software / Sinclair Spectrum Collection TOSEC.exe / Sinclair ZX Spectrum - Utilities & Educational / Sinclair ZX Spectrum - Utilities & Educational - [Z80] (TOSEC-v2007-01-01) /

Back to the directory listing

   3 mainc-ds,ds
   2 yr=a3*xr+b3
   2 l$="DRAW LINE":
   2 k$="+"+k$:
   2 ;"VERIFY?":
   2 ;"SET RIGHT-DOWN CORNER";
   2 ;"SAVING PICTURES ";k$;
   2 ;"PRESS ANY KEY":
   2 "FILL WITH? ";
   1 yr=a4*xr+b4
   1 xr=(x1+xc)/2
   1 xr=(x1+x)/2
   1 xr=(b4-b3)/(a3-a4):
   1 udg;"UDG AVIABLE"
   1 tape operations
   1 set colours
   1 save object code
   1 save for edit.
   1 restp=44468
   1 restore p.
   1 quit edit.
   1 ps+lp>1000
   1 pict review
   1 mcurs=23345
   1 mainc=63900
   1 main colours
   1 load stored p.
   1 l$="DRAW LINE"
   1 input number
   1 input name
   1 input color
   1 hl=mainc-ds:
   1 grid=44590
   1 fill window
   1 fb=mainc-fm:
   1 edit picture
   1 ds=ds+ps-pw:
   1 ds+ps+lp-pw>fb
   1 call pict.
   1 c$="VTI?`*/=,NPFCABWUOMLH"
   1 b=yc-a*xc:
   1 b4=(y1+yc)/2
   1 b3=(y+y1)/2
   1 a=mainc-ds:
   1 a;" NAME? ";
   1 a2to1=44632
   1 a2=(y1-y)/p2
   1 a1to2=44620
   1 a1=(yc-y1)/p1
   1 VTI?`*/=,NPFCABWUOMLH
   1 Invalid picture number.
   1 =(a=a)=(a=1
   1 ;;"CHOOSE FUNCTION"
   1 ;'"10 CLEAR ";mainc-ds-1
   1 ;"YOU MAY LOOK AT PICTURES "''
   1 ;"WHICH UDG SET TO CALL?
   1 ;"VERIFYING ";k$:
   1 ;"VERIFYING ";a$
   1 ;"TO USE IN  YOUR OWN PROGRAM"
   1 ;"THE PICTURES ARE ERASEING":
   1 ;"TEXT MODE";
   1 ;"TEXT MODE"
   1 ;"TAPE OPERATIONS"
   1 ;"TAPE ERROR IN SOURECE FILE ";
   1 ;"TAPE ERROR - TRY AGAIN":
   1 ;"SET RADIUS";
   1 ;"SET POINT TO DRAW ARC THROUGH   "
   1 ;"SAVE PICTURES FOR:";
   1 ;"S=SAVE  E=END  OTHER=NEXT "
   1 ;"PRESS THE REQUIRED KEY"
   1 ;"PAPER?":
   1 ;"P";pap;"  I";ink;"  F";fla;"  B";bri;"  O";ove;" N:";pn;
   1 ;"OUT OF MEMORY";
   1 ;"OPENED PICTURES: ";
   1 ;"OPEN NEW PICTURE?":
   1 ;"MEMORY USED:
   1 ;"MEMORY LEFT:
   1 ;"LOADING UDG ";K$'':
   1 ;"LOADING PICTURES ";k$'':
   1 ;"LOAD PICTURES?":
   1 ;"LAST:";l$;
   1 ;"FULL PROGRAM RESTART IS NEEDED":
   1 ;"FIRST OPEN THE PICTURE!":
   1 ;"DON'T MAKE ME ANGRY!":
   1 ;"DO YOU REALLY WANT TO ERASE ALL PICTURES?":
   1 ;"DIAGNOSIS";
   1 ;"DATA IS SAVING IN TWO PIECES"
   1 ;"COMMANDS  AVAILABLE IN EDIT MODE";
   1 ;"BOTTOM PAPER?":
   1 ;"BORDER?":
   1 ;": LOAD """;k$;""" CODE"''
   1 ;"8  SET COLOURS"
   1 ;"7  TAPE OPERATIONS";
   1 ;"6  USE IN YOUR PROGRAM"
   1 ;"6  DIAGNOSIS";
   1 ;"5  PICTURES REVIEW";
   1 ;"5  LATER EDITING";
   1 ;"4  LOAD STORED PICTURES";
   1 ;"4  ERASE ALL PICTURES";
   1 ;"3  LOAD SECOND UDG";
   1 ;"3  COMMANDS AVAILABLE";
   1 ;"2  LOAD MAIN UDG";
   1 ;"2  EDIT PICTURE";
   1 ;"1 - ";np
   1 ;"1  OPEN NEW PICTURE";
   1 ;"1  MAIN MENU";
   1 ;" PLEASE WAIT":
   1 ;" DATA IS SAVING  AS  ONE  PIECE  OF CODE WHICH INCLUDE PICTURES, UDG  AND  1300  BYTES  LONG
   1 ;" AFTER EXECUTING OF THIS LINE    EACH  PICTURE  IS  AVAILABLE    BY  POKEING ITS NUMBER  INTO    LOCATION 23681 AND EXECUTING";'" RANDOMIZE USR ";mainc
   1 ;" ";n$(i),:
   1 ;"   NO MORE MOVES MAY BE DONE!   ":
   1 85 J POTEMPA:
   1 1986 BY J. POTEMPA
   1 -a4*((x1+xc)/2
   1 -a3*((x+x1)/2
   1 (p2*p2+p3*p3)/r/2
   1 (a*xr-yr+b)=
   1 (a*x1-y1+b)
   1 ((x1-xr)*(x1-xr)+(y1-yr)*(y1-yr)):
   1 "NUMBER OF MOVES TO DELETE (0-";(mv-1
   1 "ENTER  NUMBER  OF PICTURE  YOU  WANT TO START REVIEW FROM >";
   1 "EDIT PICTURE NUMBER (1-";(np);")? ";
   1 "CLS","PRINT MESSAGE","INVERT SCREEN","PAPER","INK","BRIGHT","FLASH","SET ATTR","OVER","HOR. LINE","PLOT","FILL1","CIRCLE","DRAW ARC","DRAW BOX","FILL WINDOW","FILLP","FILL2","VERT. LINE","SET UDG","CALL PICTURE"
   1 "CALL PICTURE NUMBER > ";
   1 "1DELETE n MV.","EQUIT EDITING","0DELETE 1 MV.","ZCLOSE FIGURE","RRESTORE PICT.","GGRID"
   1  new picture
   1  VERT. LINE   SET UDG
   1  PRINT MESSAGEINVERT SCREENPAPER
   1  OUT OF EDIT BUFFER
   1  MACHINE CODE PROGRAM."''" TO USE THIS IN YOUR PROGRAM
   1  HOR. LINE    PLOT
   1  FROM CORAL SOFTWARE
   1  FIRST TYPE IN THE LINE:"
   1  FILL WINDOW  FILLP
   1  CALL PICTURE 
   1   GRAPHICS COMPILER